home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / TSR / PPTSR10 / KEYCODE.PAS < prev    next >
Pascal/Delphi Source File  |  1993-02-12  |  368b  |  21 lines

  1. (*
  2. Program  : beeper.pas
  3. Function : Additional help for writing TSR programs.
  4.            Displays keycode
  5. From     : DOS International, June 1992
  6. Modified : P.Peters (pp@win.tue.nl)
  7. *)
  8. Program KeyCode;
  9.  
  10. Uses
  11.   TsrUtil,TpHex;
  12.  
  13. Var
  14.   code : Word;
  15.  
  16. Begin
  17.   Writeln('Press a key-combination');
  18.   code := ReadKeyCode;
  19.   Writeln('$',HexWord(code));
  20. End.
  21.